home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Macintosh Graphics Primer / Macintosh Graphics Primer / card_20658.txt < prev    next >
Text File  |  1990-12-05  |  5KB  |  191 lines

  1. -- card: 20658 from stack: in
  2. -- bmap block id: 20844
  3. -- flags: 0000
  4. -- background id: 2792
  5. -- name: intro 7a
  6. ----- HyperTalk script -----
  7. on closecard
  8.   global maploc, cardloc
  9.   put word 1 of the short name of this card into maploc
  10.   put word 2 of the short name of this card into cardloc
  11. end closecard
  12.  
  13.  
  14.  
  15. -- part 21 (button)
  16. -- low flags: 00
  17. -- high flags: 2000
  18. -- rect: left=484 top=317 right=342 bottom=512
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 18613 / 18613
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: return
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   pop card into lastPush
  30.   if the short name of this stack is not in lastPush then
  31.     visual dissolve
  32.     go card "Map"
  33.   else
  34.     visual dissolve
  35.     go lastPush
  36.   end if
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 22 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=428 top=317 right=342 bottom=456
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 18611 / 18611
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: prev
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   visual effect scroll right
  56.   go prev
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 23 (button)
  62. -- low flags: 00
  63. -- high flags: 2000
  64. -- rect: left=458 top=317 right=342 bottom=485
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 18612 / 18612
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: next
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   visual dissolve
  76.   go next
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 24 (button)
  82. -- low flags: 00
  83. -- high flags: 0002
  84. -- rect: left=392 top=320 right=338 bottom=426
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 1500 / 1500
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Start-Up
  93. ----- HyperTalk script -----
  94. on mouseDown
  95.   global NAV_PATH, SYS_PATH, GTRACKINGDISABLED
  96.  
  97.   put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  98.  
  99.   -- simulate hiliting of two small buttons
  100.   repeat until the mouse is up
  101.     ---find out WHERE on the icon you clicked
  102.     put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  103.     if the mouseLoc is within the rect of the target then
  104.       if whereInBtn < 0 then
  105.         set icon of me to 1501
  106.       else
  107.         set icon of me to 1502
  108.       end if
  109.     else   -- outside of the button, reset default icon
  110.       set icon of me to 1500
  111.     end if
  112.   end repeat
  113.   set icon of me to 1500
  114.   if the mouseloc is not within the rect of me then exit mouseDown
  115.  
  116.   if whereInBtn < 0 then
  117.     --- the click was on the left so go to send feedback if it exists
  118.     if (GTRACKINGDISABLED = empty) or (GTRACKINGDISABLED = true) then
  119.       answer "‚ÄúCD Preferences‚Äù has not been installed." with "OK"
  120.       exit mouseDown
  121.     end if
  122.     --
  123.     if (GTRACKINGDISABLED = "Disabled") then
  124.       answer "The feedback mechanism has been disabled." with "OK"
  125.       exit mouseDown
  126.     end if
  127.     --
  128.     push card
  129.     put SYS_PATH & "CD Preferences" into feedPath
  130.     set cursor to watch
  131.     visual effect dissolve fast
  132.     go stack feedPath
  133.   else if whereInBtn > 0 then
  134.     -- if the click was on the right then go back to navigation stack
  135.     visual effect iris close to black
  136.     visual effect iris open
  137.     if NAV_PATH = empty then put "cd welcome of stack" && "the ‚ÄúNavigation Stack‚Äù" into NAV_PATH
  138.     -- make a prompt for "where is" if the global is empty
  139.     go NAV_PATH
  140.   end if
  141. end mouseDown
  142.  
  143. on mouseUp
  144.   -- kill any mouseups
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part contents for background part 9
  150. ----- text -----
  151. Macintosh Graphics Primer
  152.  
  153. -- part contents for background part 11
  154. ----- text -----
  155. intro7
  156.  
  157. -- part contents for background part 4
  158. ----- text -----
  159. The Basics of Color
  160.  
  161. -- part contents for background part 13
  162. ----- text -----
  163. How We See Colors  (continued)
  164.  
  165. -- part contents for background part 5
  166. ----- text -----
  167.  
  168. Humans experience color whenever light interacts with our eyes.  Color is a subjective phenomenon.  The way we perceive a color depends not just on the physical attributes of the wavelengths of light, but also on the surrounding colors, the light source illuminating the object, and individual variations in our eyes.
  169.  
  170. To our eyes a blue ball may appear to be different shades of blue when surrounded by light blue objects one time, and bright yellow objects another time.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182. -- part contents for background part 14
  183. ----- text -----
  184. 68000: technology 3
  185. power mgr: techn 29
  186. SRAM: tech 34
  187. FDHD: f&b 8
  188. Case: f&b 20
  189. Battery: f&b 15
  190. Inputs: f&b 19
  191. system: tech 38